home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / protect.g < prev    next >
Text File  |  1997-01-14  |  4KB  |  241 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 222 132 ""
  5. wintype 00001000
  6. winout nil:
  7.  
  8.  
  9. xonopen
  10. update protect.g 1 0
  11. update protect.g 2 0
  12. update protect.g 3 0
  13. update protect.g 4 1
  14. update protect.g 5 1
  15. update protect.g 6 1
  16. update protect.g 7 1
  17. update protect.g 9 -
  18. update protect.g 10 -
  19. update protect.g 11 -
  20. update protect.g 12 R
  21. update protect.g 13 W
  22. update protect.g 14 E
  23. update protect.g 15 D
  24. gosub protect.g getfile
  25.  
  26. xonclose
  27. delvar pro_#?
  28. lvdir climaster $cmst_srce none
  29.  
  30.  
  31. box 0 0 0 0 out button
  32. box 10 4 202 52 in button
  33. ctext 52 40 "New Bit Pattern" topaz.font 8 2 0 000
  34. ctext 29 14 S topaz.font 8 2 0 000
  35. ctext 55 14 P topaz.font 8 2 0 000
  36. ctext 81 14 A topaz.font 8 2 0 000
  37. ctext 107 14 R topaz.font 8 2 0 000
  38. ctext 133 14 W topaz.font 8 2 0 000
  39. ctext 159 14 E topaz.font 8 2 0 000
  40. ctext 185 14 D topaz.font 8 2 0 000
  41. ctext 60 66 "Current file" topaz.font 8 2 0 000
  42.  
  43.  
  44. xcheckbox 20 17 26 11 "" pro_scr 1 0 off
  45. gadid 1
  46. if $pro_scr = 1
  47.     update protect.g 9 S
  48. else
  49.     update protect.g 9 -
  50. endif
  51.  
  52. xcheckbox 46 17 26 11 "" pro_pur 1 0 off
  53. gadid 2
  54. if $pro_pur = 1
  55.     update protect.g 10 P
  56. else
  57.     update protect.g 10 -
  58. endif
  59.  
  60. xcheckbox 72 17 26 11 "" pro_arc 1 0 off
  61. gadid 3
  62. if $pro_arc = 1
  63.     update protect.g 11 A
  64. else
  65.     update protect.g 11 -
  66. endif
  67.  
  68. xcheckbox 98 17 26 11 "" pro_rea 0 1 off
  69. gadid 4
  70. if $pro_rea = 1
  71.     update protect.g 12 -
  72. else
  73.     update protect.g 12 R
  74. endif
  75.  
  76. xcheckbox 124 17 26 11 "" pro_wri 0 1 off
  77. gadid 5
  78. if $pro_wri = 1
  79.     update protect.g 13 -
  80. else
  81.     update protect.g 13 W
  82. endif
  83.  
  84. xcheckbox 150 17 26 11 "" pro_exe 0 1 off
  85. gadid 6
  86. if $pro_exe = 1
  87.     update protect.g 14 -
  88. else
  89.     update protect.g 14 E
  90. endif
  91.  
  92. xcheckbox 176 17 26 11 "" pro_del 0 1 off
  93. gadid 7
  94. if $pro_del = 1
  95.     update protect.g 15 -
  96. else
  97.     update protect.g 15 D
  98. endif
  99.  
  100. text 78 42 10 12 "" 1 nobox
  101. gadid 9
  102.  
  103. text 88 42 10 12 "" 1 nobox
  104. gadid 10
  105.  
  106. text 98 42 10 12 "" 1 nobox
  107. gadid 11
  108.  
  109. text 108 42 10 12 "" 1 nobox
  110. gadid 12
  111.  
  112. text 118 42 10 12 "" 1 nobox
  113. gadid 13
  114.  
  115. text 128 42 10 12 "" 1 nobox
  116. gadid 14
  117.  
  118. text 138 42 10 12 "" 1 nobox
  119. gadid 15
  120.  
  121. text 11 70 200 12 $cmst_fname 30 box
  122. gadid 8
  123.  
  124. xbutton 10 90 101 12 "All On"
  125. update protect.g 1 1
  126. update protect.g 2 1
  127. update protect.g 3 1
  128. update protect.g 4 1
  129. update protect.g 5 1
  130. update protect.g 6 1
  131. update protect.g 7 1
  132. update protect.g 9 S
  133. update protect.g 10 P
  134. update protect.g 11 A
  135. update protect.g 12 R
  136. update protect.g 13 W
  137. update protect.g 14 E
  138. update protect.g 15 D
  139.  
  140. xbutton 10 114 101 12 "Toggle"
  141. if $pro_scr = 1
  142.     update protect.g 1 0
  143.     update protect.g 9 -
  144. else
  145.     update protect.g 1 1
  146.     update protect.g 9 S
  147. endif
  148. if $pro_pur = 1
  149.     update protect.g 2 0
  150.     update protect.g 10 -
  151. else
  152.     update protect.g 2 1
  153.     update protect.g 10 P
  154. endif
  155. if $pro_arc = 1
  156.     update protect.g 3 0
  157.     update protect.g 11 -
  158. else
  159.     update protect.g 3 1
  160.     update protect.g 11 A
  161. endif
  162. if $pro_rea = 1
  163.     update protect.g 4 1
  164.     update protect.g 12 R
  165. else
  166.     update protect.g 4 0
  167.     update protect.g 12 -
  168. endif
  169. if $pro_wri = 1
  170.     update protect.g 5 1
  171.     update protect.g 13 W
  172. else
  173.     update protect.g 5 0
  174.     update protect.g 13 -
  175. endif
  176. if $pro_exe = 1
  177.     update protect.g 6 1
  178.     update protect.g 14 E
  179. else
  180.     update protect.g 6 0
  181.     update protect.g 14 -
  182. endif
  183. if $pro_del = 1
  184.     update protect.g 7 1
  185.     update protect.g 15 D
  186. else
  187.     update protect.g 7 0
  188.     update protect.g 15 -
  189. endif
  190.  
  191. xbutton 111 90 101 12 "Current"
  192. gosub protect.g buildbits
  193. action protect $cmst_select $pro_code
  194. lvmulti climaster $cmst_srce off
  195. lvmulti climaster $cmst_srce next
  196. if $cmst_select = ""
  197.     guiclose protect.g
  198. endif
  199. gosub protect.g getfile
  200.  
  201. xbutton 10 102 101 12 "All Off"
  202. update protect.g 1 0
  203. update protect.g 2 0
  204. update protect.g 3 0
  205. update protect.g 4 0
  206. update protect.g 5 0
  207. update protect.g 6 0
  208. update protect.g 7 0
  209. update protect.g 9 -
  210. update protect.g 10 -
  211. update protect.g 11 -
  212. update protect.g 12 -
  213. update protect.g 13 -
  214. update protect.g 14 -
  215. update protect.g 15 -
  216.  
  217. xbutton 111 102 101 12 "All Files"
  218. gosub protect.g buildbits
  219. lvaction protect climaster $cmst_srce $pro_code
  220. guiclose protect.g
  221.  
  222. xbutton 111 114 101 12 Cancel
  223. guiclose protect.g
  224.  
  225.  
  226. xroutine getfile
  227. extract cmst_select file cmst_fname
  228. extract cmst_fname unquote cmst_fname
  229. update protect.g 8 $cmst_fname
  230. return
  231.  
  232. xroutine buildbits
  233. setvar pro_code $pro_del
  234. appvar pro_code $pro_exe
  235. appvar pro_code $pro_wri
  236. appvar pro_code $pro_rea
  237. appvar pro_code $pro_arc
  238. appvar pro_code $pro_pur
  239. appvar pro_code $pro_scr
  240. return
  241.